home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_4754.txt < prev    next >
Encoding:
Text File  |  1990-08-14  |  6.8 KB  |  307 lines
  1. -- background: 4754 from stack: in
  2. -- bmap block id: 5144
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: About
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set icon of background button id 7 to short name of this card
  9.   set name of background button id 7 to short name of this card
  10. end openCard
  11.  
  12. on openBackground
  13.   global interactiveDemo
  14.   put true into interactiveDemo
  15. end openBackground
  16.  
  17. on doMenu menuItem
  18.   lock screen
  19.   if menuItem is "Help" then
  20.     go to last card of this background
  21.     unlock screen with dissolve fast
  22.   else if menuItem is "First" then
  23.     go to first card of this background
  24.     unlock screen with visual wipe right
  25.   else if menuItem is "Prev" then
  26.     if id of first card of this background is id of this card then
  27.       go to card (the number of cards of this bg - 2) of this bg
  28.     else go prev
  29.     unlock screen with visual wipe right
  30.   else if menuItem is "Next" then
  31.     if id of card (the number of cards of this bg - 2) of this background is id of this card then
  32.       go to first card of this background
  33.     else go next
  34.     unlock screen with visual wipe left
  35.   else if menuItem is "Last" then
  36.     go to card (the number of cards of this bg - 2) of this bg
  37.     unlock screen with visual wipe left
  38.   else
  39.     unlock screen
  40.     pass doMenu -- OK
  41.   end if
  42. end doMenu
  43.  
  44. on arrowKey direction
  45.   if direction is "Left" then
  46.     doMenu "Prev"
  47.   else if direction is "Right" then
  48.     doMenu "Next"
  49.   else if direction is "Up" then
  50.     lock screen
  51.     go to card "Demo Shell"
  52.     unlock screen
  53.   else if direction is "Down" then
  54.     -- do nothing
  55.   end if
  56. end arrowKey
  57.  
  58. on grayPicture cardPict
  59.   push card
  60.   get the userLevel
  61.   set the userLevel to 3
  62.   if not cardPict then set the editBkgnd to true
  63.   choose select tool
  64.   doMenu "Select All"
  65.   doMenu "Copy Picture"
  66.   go to card short name of this background of background "Information"
  67.   set the editBkgnd to true
  68.   doMenu "Paste Picture"
  69.   choose browse tool
  70.   set the userLevel to it
  71. end grayPicture
  72.  
  73. --on type typeText
  74. put empty into the selection
  75. repeat with index = 1 to the number of chars in typeText
  76.   play boing tempo 500 "c7s"
  77.   put char index of typeText after the selection
  78. end repeat
  79. --end type
  80.  
  81. on sortBackground
  82.   lock screen
  83.   set the cursor to watch
  84.   repeat with i = the number of cards of this bg - 1 down to 3
  85.     repeat with j = 2 to i - 1
  86.       if short name of card j of this bg > short name of card j + 1 of this bg then
  87.         go to card j of this bg
  88.         doMenu "Cut Card"
  89.         doMenu "Paste Card"
  90.       end if
  91.     end repeat
  92.   end repeat
  93.   unlock screen
  94. end sortBackground
  95.  
  96.  
  97. -- part 1 (button)
  98. -- low flags: 00
  99. -- high flags: A000
  100. -- rect: left=269 top=37 right=83 bottom=355
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 5000 / 5000
  103. -- text alignment: 1
  104. -- font id: 0
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Mac School® Shell
  109. ----- HyperTalk script -----
  110. on mouseUp
  111.   visual iris close
  112.   go to card short name of me
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 2 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=420 top=294 right=330 bottom=444
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 5051 / 5051
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Previous
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   lock screen
  132.   set the scroll of field "text" to 0
  133.   if the optionKey is down then
  134.     doMenu "First"
  135.   else
  136.     doMenu "Prev"
  137.   end if
  138.   unlock screen with visual wipe right
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 3 (button)
  144. -- low flags: 00
  145. -- high flags: 2000
  146. -- rect: left=474 top=294 right=330 bottom=498
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 5052 / 5052
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Next
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   lock screen
  158.   set the scroll of field "text" to 0
  159.   if the optionKey is down then
  160.     doMenu "Last"
  161.   else
  162.     doMenu "Next"
  163.   end if
  164.   unlock screen with visual wipe left
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 4 (button)
  170. -- low flags: 00
  171. -- high flags: 2000
  172. -- rect: left=440 top=113 right=149 bottom=478
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 5050 / 5050
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: Home
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   visual dissolve to white
  184.   visual dissolve
  185.   go home
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 5 (field)
  191. -- low flags: 01
  192. -- high flags: 0002
  193. -- rect: left=10 top=110 right=135 bottom=413
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 3
  198. -- text size: 18
  199. -- style flags: 256
  200. -- line height: 24
  201. -- part name: Title
  202.  
  203.  
  204. -- part 6 (field)
  205. -- low flags: 01
  206. -- high flags: 0007
  207. -- rect: left=10 top=138 right=332 bottom=413
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 2
  212. -- text size: 12
  213. -- style flags: 0
  214. -- line height: 16
  215. -- part name: text
  216.  
  217.  
  218. -- part 7 (button)
  219. -- low flags: 00
  220. -- high flags: A000
  221. -- rect: left=377 top=37 right=83 bottom=463
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 5005 / 5005
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: Course Details
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   lock screen
  233.   go to background short name of me
  234.   if the result is "No Such Card" then beep
  235.   else unlock screen with visual zoom open
  236. end mouseUp
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243. -- part 8 (button)
  244. -- low flags: 00
  245. -- high flags: A000
  246. -- rect: left=418 top=168 right=214 bottom=500
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 5076 / 5076
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: Overview
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   push card
  258.   visual iris open
  259.   go to card (short name of this card) of background "Module Overviews"
  260.   if the result is "No such card" then beep
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 9 (button)
  266. -- low flags: 00
  267. -- high flags: 2000
  268. -- rect: left=449 top=303 right=321 bottom=469
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 5074 / 5074
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: Help
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   lock screen
  280.   go to last card of this background
  281.   unlock screen with dissolve fast
  282. end mouseUp
  283.  
  284.  
  285.  
  286. -- part 10 (button)
  287. -- low flags: 00
  288. -- high flags: A000
  289. -- rect: left=418 top=230 right=276 bottom=500
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 5075 / 5075
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: Rolling Demo
  298. ----- HyperTalk script -----
  299. on mouseUp
  300.   global interactiveDemo
  301.   put false into interactiveDemo
  302.   if the heapSpace < 140000 then
  303.     answer "Not enough memory to run demo."
  304.   else rollingDemo
  305. end mouseUp
  306.  
  307.